home *** CD-ROM | disk | FTP | other *** search
- Attribute VB_Name = "Module2"
- Option Explicit
- ' load header from pdb file
- Public Sub loadheader(filename As String)
- Dim i As Integer
- Dim b(1 To 88) As Byte
-
- Open filename For Binary Access Read As #1
- Get #1, , b()
- Close #1
- ' write a pseudo basic output
- Open "pdb-header.bas" For Output As #1
- Dim s As String
- Print #1, "dim bheader(1 to 88) as byte"
- Print #1, "public sub initheader()"
- For i = 1 To 88
- s = s & Str(b(i)) & " "
- Print #1, "bheader(" & Str(i) & ")=" & Str(b(i))
- Next i
- Print #1, "end sub"
- Close #1
- MsgBox s
- End Sub
-
-